PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPP PPP 
PPP PPP 
PPP PPP 


PPP PPP 
PPP PPP 


PPP PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


tt tt ot st tt Ht 4 St St Ht Ht Ht SH Ht 

AAAs tH HS HH 

A a A A A tH tt 
AAAAAAOOOAAMAAOO 
AAQMAAAAOAOAMAAAOAO 
NOAAMAAAAAAAAAOOO 


HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 


| 
ed 


**F ILE®*1D©*PATSYM 
PPPPPPPP AAAAAA ITITITTTTT «= SSSSSSSS_ YY vY MM “Mm 
PPPPPPPP AAAAAA  TTTTTITTTT —_SSSSSSSS_ YY YY MM MM 
PP PP AA AA TT SS vy YY MMMM MMMM 
PP PP AA AA TT SS vy YY MMMM MMMM 
PP PP AA AA TT 3 YY YY MM MM MM 
PP PP AA AA 1T SS YY YY MM MM MM 
PPPPPPPP = AA AA TT SSSSSS YY MM MM 
PPPPPPPP TT SSSSSS vY MM MM 
PP AAAAAAAAAA TT SS vy MM MM 
PP A TT SS YY MM MM 
PP AA TT SS vY lg MM pee 
PP AA TT SS vy MM MM oak 
PP AA AA TT SSSSSSSS vY MM mM otaines 
PP AA AA 1T SSSSSSSS vY mM MM nthe 
LL ease: SSSSSSSS 
LL HII! SSSSSSSS 
LL I] $$ 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL II SS 
LL II SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL §©=sSIEII) «= SSSSSSSS 
LLLLLLLLLL «=—sTJIII «= SSSSSSSS 


po fol o lola lol ololololololololololeololo) 
Cooooo 


pepe po fololelolofeleleloeloleleloleololololelolelo!) 
WARPOPIPININIPINININD 2 2 OP OO OS S SOOO OOOCOCOO 
CON AUS WN O OONAU EWN OOO NAOUS AN (OW ONOULS WN 


NOME UN QO OONAUSWN OO DNAUS WN —OODNOUS Wh — 
CoOooooooocoo 


WIWNIAIAIAI AIA POPINPIPINIPONININY 2 2 OO ee 


Sooooooocoo 
COOooooceooeo 


Be Se Se Oe Be Se Se Se Se Se Se Se Ge Se Ge Se Se Se Se Se Se Ge Ge Se Se Se Ge Se Se Se Se Ge Se Se Fe Se Se Se Se Se Ss Se Se Se Se Se Se SESH See Sees SHS Seas 


DISKSVMSMAST 
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VARIANT EQL 1 


NT = 'V04-000') = 

BEGIN 

: 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND serie’ 
:* ONLY IN ACCORDANCE WITH THE TERMS pF SUCH obtcan SE AND WITH THE 


; Y R 
!® OTHER PERSON. NO TITLE TO AND OWNERSHIP oF THE SOFTWARE IS HEREBY 
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'® 
'e He. INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
'® SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


e CORPORATION. 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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{ FACILITY: PATCH 
i ABSTRACT: 


This module contains the routines for manipulating the 
user-defined and global symbols. 


1 

i] 

' 

t 

: 

ENVIRONMENT: STARLET, user mode, interrupts disabled. 
Version: v02-009 

i History: 

§ uthor: 

: Carol Peters, 13 Dec 1976: Version 01 
; MODIFIED BY: 

: v02-009 PCG0001 Peter G orge 02-FEB-1981 
Add require statement re IBS:PATDEF .REQ 
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Modified b 
Kathleen Morse, 19 Oct 1977: Version x01.00 
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18-Se0-1984 99:88:95 VSNSUSDBASEST BAT YA Sacdevsser.reas1 2% «13 
SWITCHES LIST (SOURCE); 


EXTERNAL ROUTINE 
PATSfao_out; ! formats a Line and outputs to the terminal 


rarstm, 1E$eo-19R4 09:56:04 


EXTERNAL ROUTIN 
pATSE RE RELFASE, 
PATSFREEZ; 


EXTERNAL 
PATSGL_SYMHEAD 
PATSGL~SYMTBPR; 


BUILTIN 
INSQUE ; 


Wr 
o~ 


LESRE 
UESWNOOONOuM 


i) 


4.0-7% ° 
abit’ Sacaparsvm.e3203%" (25 


} Rrpstecstes a block of free storage 
' A 


ocates a block of free storage 


Pointer to Listhead entry of user-defined 
Symbol table Listhead 
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000 
; ! 7 GLOBAL ROUTINE PATSFIND_VAL (VALUE, MATCH_FLAG) = : 
: 108 1 144 ; 
: +4 ! Functional description: : 
; 111 ie 1} Searches (in a binary manner) through the doubly-Linked symbol ‘ 
; 116 73 1! table for the name of a symbol which matches the given value. : 
3 7% «1! If such a symbol is fgund. the address of the entry is ; 
3 Wg ie ! } returned. Otherwise 0 is returned. : 
; 118 By? 8 If MATCH_FLAG is TRUE, an exact match must be found. ; 
3 a4 578 ! Otherwise we return a pointer to the closest lower symbol. : 
; 119 0880 1 ! Calling sequence: F 
: 120 Oas) 1 | _— 
: 121 38 ¢ 1! CALLS #2, PATSFIND_VAL : 
: 138 Z 4} input ; 
H : inputs: ‘ 
> 126 gees 1! 2 : 
; 125 tf 1! VALUE “the key we are to search for ; 
: 126 0887 1! MATCH_FLAG “TRUE => insist. on an exact match, ‘ 
; 127 0505 1! FALSE => the ciosest one will do. : 
; 128 0889 1! ; 
3 19 0890 1 ! Implicit inputs: ; 
: 130 0891 1! , 
3 13) 94 : PATSGL_SYMTBPTR, pointer to the header Link in the current symbol table. : 
: 13 0894 1 ! Outputs: ; 
3: (134 0895 1! : 
s 135 443 1! The address of the symbol entry, or zero, if the name is not found. ; 
; 136 0897 1! : 
3 is7 0898 1 ! Implicit outputs: : 
; «4138 0899 1! : 
; 139 0900 1! none : 
; 140 0901 1! ‘ 
: «6141 +44 1 ! Routine value: ; 
3 sp 0903 1! : 
3 14 0904 1! an address or zero : 
3 «144 0905 1! : 
: 6145 446 1! Side effects: : 
3 1o8 0907 1! : 
: 14 0908 1! none : 
3; «6148 0909 1 !-- : 
3 6149 219 1 : 
; 150 91 ¢ PEGIN : 
3 «6151 aig : 
; 136 91 LOCAL : 
3 15 0914 RETURN PTR, ' Pointer to closest matched entry 3 
8 138 4 POINTER; ' Pointer to current symbol entry : 
: 136 319 1e+ : 
3 130 Ht ; Assume there is no closest match (RETURN_PTR = 0). : 
; 159 920 2 RETURN_PTR = 0; : 
: 160 921 : 
3; 6161 9 § '++ : 
: 162 9 ! Set pointer to the first entry in the table. Loop, searching the table 3 


4 
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: 163 8 ¢ until an exact match is found or there is no more table. 

: 165 9 § POINTER = .DLL_RLINK (.PATSGL_SYMTBPTR); 

; 166 3 WHILE -POINTER"NEQ .PATSGL_SYATBPTR 

es een 

; 170 4 ° ! Look for exact match. 

i 1g 3 5 If (.SYM_VALUE(.POINTER) EQLU .VALUE) 

: 17% 935 RETURN .POINTER; 

iu os e 

: 33 9 5 i Check if closest match is desired. If so, check that current entry 
: 178 04 is less than the value sought and if it is closer than RETURN_PTR. 
: 180 941 4 iF (NOT .MATCH_FLAG) 

3 181 0349 3 THEN Je 

; 18¢ 0943 4 IF (.SYM_VALUE(.POINTER) LEQU . VALUE) 

: 1B bocs i THEN BEGIN 

3 185 ah ; Jf (-RETURN_PTR EQLA 0) 

> 187 948 4 RETURN_PTR = .POINTER 

188 b9c8 ELSE wiles : 

; 189 0990 ; IF (.SYM_VALUE(.RETURN_PTR) LEQU .SYM_VALUE(.POINTER)) 
: 191 0952 4 RETURN_PTR = .POINTER; 

; 198 §988 END; =e vise 

1 Be 7 

; 13? 0387 Go back and look at the next element on the List. 

; 197 0958 POINTER = .DLL_RLINK(. POINTER); 

; 199 0960 ; RETURN(.RETURN_PTR) ; 

; 200 0961 17 END; 


.TITLE PATSYM 
[IDENT \V04-000\ 
.EXTRN PATSFAO_OUT, PATSFREERELEASE 
SEXTRN PATSFREEZ, PATSGL.SYMHEAD 
SEXTRN PATSGL_SYMTBPTR 
“WEAK © ACCESS“ CHECK 
.PSECT _PATSCODE,NOWRT,2 
0004 909 .ENTRY PATSFIND_VAL, Save R2 : 0867 
51 D4 CLRL RETURN PTR : 0920 
59 000000996 FF OD MOVL § @PATSGC_SYMTBPTR, POINTER : 0926 
Ac D MCOML TCH _FCAG, R > 0941 
000000006 EF 30 p F 1S: CPL POINTER, PATSGL_SYMTBPTR ; 0927 
04 ac 08 AO D i8 CMPL 8(POINTER), VALUE > 0933 
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| 18 1 1D BEQL Ss : ; 
10 } 3 F BLBC , 3 ; 094 : 
A ¢ BGTRU 3: 094 ‘ 
3 Ist RETURN_PTR + 0946 : 
08 a0 08 AL pt é CPL Girerurw_ptry, 8 (POINTER) ; 0950 ; 
51 2 D F 33: MOVL POINTER, RETURN PTR ; 095 : 
0 6 06 $: MOVL (POINTER), POINTER ; 33 : 
50 8 BO 4$: MOVL § RETURN_PTR, RO ; 0960 : 
4 0003A 5$: RET : 0961 : 
; Routine Size: 59 bytes, Routine Base: _PATSCODE + 0000 : 
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GLOBAL ROUTINE PATSDEFINE_SYM (STRING_DESC, VALUE, MSG_FLAG) : NOVALUE = 


!e4¢ 
' Functional description: 


Stores a user-defined symbol in the gyubet table, which is a doubly 
linked List. First searches (in a binary fashion) the table to see 
whether the byabe} exists. If it goes not, then the symbol is 
inserted, except if no free Storege s left, in which case another 
error message is reported from PATS$FREEZ. 

Calling sequence: 
CALLS #2, PATSDEFINE_SYM 

Inputs: 


STRING_DESC - a string descriptor describing the string 
representing the symbol 


VALUE - the value to be stored as the equivalent of the 
symbol. 
MSG_FLAG - ladicator whether or not to print a define message, 


(TRUE=print message, FALSE=don't print message) 

Implicit inputs: 

PATSGL_SYMTBPTR, pointer to the header Link in the current symbol table. 
Implicit outputs: 

none 
Routine value: 

novalue 
Side effects: 


The symbol is inserted into the symbol table. The Links of 
the table are appropriately adjusted. 


STRING_DESC : REF BLOCK C, BYTE); 


LOCAL 
POINTER; 


POINTER = PATSFIND SYM (.STRING_DESC); 
RS aaaatieas EQL OF 


BEGIN 
le 
! Symbol did not exist. Insert it into the symbol table. First allocate 


mM 4 
PATSYM 16-Sep-1984 00:36:04 VAX=11 Bliss-32 V4.0-742 P 1 
V04-000 eae RM CRT et HS nett nes pene bi 
: 4 } 38 a block of dynamic storage to hold it. : 
3 ep POINTER = PATSFREEZ ((.STRING_DESC COSCSW_LENGTH] + 1 + 3) / 4 + OVERHEAD_SYM = 1); ; 
: 26 1 le4 ; 
3 64 1024 ' Space allocated. Insert the new Link. Then write th bol ; 
: 9? : 5 } value into the new symbol table entry. mada ie erg te anche ie: ; 
: 267 19 $ iNSQUE (.POINTER, .PATSGL SYMTBPTR) : 
> 268 1028 CHSMOVE (.STRING DESC COSCSW LENGTH), CHSPTR (.STRING_DESC CDSCSA_POINTER]), : 
> 269 1029 HSPTR (SYM_RAME (.POINTER))); ’ 
; 270 10 0 SYM_CHCOUNT (.POINTER) = .STRING_DESC CDSC$W_LENGTH); : 
: 271 1031 SYM-VALUE (.POINTER) = .VALUE; : 
; i 19 3 i IF T.MSG_FLAG) : 
; i P 1 4 _— SFAO_TT_OUT('symbol ‘'!AD'' defined XL 
: ,e / efined as !XL' : 
> 275 P 8 & 4 POTRING DESTCDSt Su LENGTHS ; 
; 376 1036 CHSPTR(7STRING_DESCLDSCSA_POINTER]), . VALUE); : 
: 277 1037 END : 
; 278 1038 2 ELSE ; 
: $86 1940 BEGIN 
: 381 1041 i syete* already was defined. Just reset the value of 
: HY 1008 ! the symbol stored in the symbol table. 
3 284 1044 4 if (-MSG_FLAG) 
; $B P 1046 3 SFAO_TT_OUT('symbol ‘"!AD'' redefined from !XL to !XL', 
: 287 P 1047 ~STRING_DESCCOSCS$W LENGTH 
: 288 P 1048 CHSPTR(TSTRING DESCLDSC$A_POINTER]), 
; 289 1049 .SYM_VALUE(.POINTER), .VACUE); 
: 290 1050 3 SYM_VALUE (.POINTER) = .VALUE; 
: 291 1051 END; 
: 292 1052 1 END; 
.PSECT _PATSPLIT,NOWRT,NOEXE ,0 
1B 00000 P.AAA: .BYTE 27 : 
65 64 20 22 44 41 21 20 6C 6F 62 6D 79 ri 0001 [ASCII \symbol "!AD'' defined as !XL\ ; 
ce $3 31 $3 $8 88 $6 GE fe SF OB ff 1 pean wg - wh ieenanatign ; 
5 72 20 22 44 41 21 20 6C 6F 62 6D 7 001D ~ | <CASCII \symbol “!AD" redefined from !XL to !XL\: 
oe $8 Og Gt Sh a8 88 82 os e 65 66 65 64 Gee yes apt aiegeal dam . : 
4C 58 21 20 6F 74 20 4C 00038 : 
-PSECT _PATSCODE,NOWRT.2 
O1FC 00 .ENTRY PATSDEFINE_SYM, Save R2.R3.R4,R5,R6,R7.R8  ; 0962 
58 000000906 EF 4 MOVAB PAT$FAO_OUT, Rg ; 
4 AC OD STRING_DESC, R + 1013 
dD PUSHL 3 
00000000v ef FB F CALLS #1, PATSFIND_SYM F 
7 0 »D 16 MOVL RG, POINTER : 
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H ge } 32 ! GLOBAL ROUTINE PATSFIND_SYM (STRING_DESC) = : 
; 1055 1 !4+ ‘ 
; 44 ! 2 ! ; Functional description: ; 
; 299 1038 1! Searches (in a binary manner) through the doubly-Linked symbol ‘ 
; 300 1059 1! table for a symbol name. If it is found, the address of the entry : 
3 4 igor : is returned. Else a zero is returned. ‘ 
: 30 1062 1 ! Calling sequence: ‘ 
; 304 1968 1! : 
; 5 199¢ 1! CALLS #1, PATSFIND_SYM ; 
: 309 1066 1 i Input 

3 ! Inputs: 

; 308 1969 1! 

; 4 1308 ' : STRING_DESC - the string descriptor of the symbol to find 

3 1 1909 } : Implicit inputs: 

: 318 ug \ PATSGL_SYMTBPTR, pointer to the header Link in the current symbol table. 

s 3515 1074 1 ! Outputs: 

3 S16 1075 1! 

: 176 : } The address of the symbol entry, or zero, if the name is not found. 

; 315 1078 1 ! Implicit outputs: 

: 320 1079 1! 

3 Sel 1080 1! none 

3 $56 1081 1! 

3 Se 1086 1 ! Routine value: 

; 324 1083 1! 

3 32 1084 1! an address or zero 

; 326 1085 1! 

s Ser 1086 1 ! Side effects: 

3; fee 1087 1! 

; 4 1088 1! none 

3 3 1089 1! 

3; 331 1090 1 !-- 

3 336 1091 1 

: 2 95 BEGIN 

; 334 193 

3 339 1094 

; 336 1095 STRING_DESC : REF BLOCK C, BYTE); 

3 3 1938 

3 8 109 LOCAL 

: 339 1098 POINTER; 

; 340 1099 

3 41 1100 POINTER = .DLL_RLINK (.PATSGL_SYMTBPTR); 

; § i 1 WHILE (.POINTER NEQ .PATSGL_SYMTBPTR) 

: 4 11 : BEGIN 

: 5 1104 IF CHSEQL (.STRING_DESC COSCSW_LENGTH], CHSPTR (.STRING DESC CDSCSA POrNren. 0), 

; § 1105 - SYM_CHCOUNT (TPOINTERS, CHSPTR (SYM_NAME (.POINTERY, 0)) 

:; 34 11 $ THEN RETURN .POINTE 

; 8 11 ELSE POINTER = .DLL_RLINK (.POINTER); 

: 9 1108 END; 

; 350 1109 RETURN 0 
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dD 5 
PATSYM 16-Sep-1984 00:36:04 VAX-11 Bliss-32 V4.0-742 Page 
v04-000 13-88-1382 90:38:06 DISKSVMSMASTER:LPATCH, SRCJPATSYM.B32:1> 
GLOBAL ROUTINE PATSADD_LABELS (SYM_LISTHEAD) : NOVALUE = 


144 
! Functional description: 


4 
) 


< 
Oo 
> 


1 
(6 


This routine merges a label symbol table into the user-defined 
symbol table. The label symbol table entries are identical in 
format to the user-defined sypbot table. Therefore, for new 
symbols, the entry can be Linked into the user table without 
alteration. Redefined symbols merely alter the user table entry 
and are then released to free storage. 


Calling sequence: 
CALLS #1, PATSADD_LABELS 


NIAAA AIA AAI AANA 
ead ieke ot oie ne 
NAME WN" OOONOUS WW 


68 
376 Inputs: 
71 SYM_LISTHEAD - Address of the pointer to the label symbol table 
f to be added 
a Implicit inputs: 
re PATSGL_SYMTBPTR, pointer to the header Link in the current symbol table. 
A Outputs: 
80 none 


Implicit outputs: 


none 


Mwy 


Routine value: 


WALA A AANA AAAI 


ed ee ed ee ee a ae ae ee ed ce ced ce ee ce cee cee ce ce ce ce ce ce ee ce ce cae ee ee ee ee ct ee ce ee eed ce ce ce ee ee ce ee ee ee ee ee ee ee ee ee ee ed ee 
ek ed ced ce ae ee ce ce ce cae cee cee ed ce cee ce cee a ee ce ce ce ce cd a cd ce ce ce ae ee ee ced et ced ce cn ce ee ce ce eB ce ee ee ce ee ee ee ee ee ee eB eB ee ed 
DRY QPLDPAAD MA BBB BEL EB EAA POPONONoNoNoNny 2 2 2 SO SS 
NOUS WN 2 O DOONAN EWN O OO NA UE WN 9 ODNOU ES WUN $ O OONOUE WN OWOWONOUS Wn 


PRORORoNoPOPoNONONoNOny 2 2 2 


Bees Oe Oe Be Se wee Se Se Se Se Ge Se Se Ge Ge Ge FH Se Ge Se Se Se Ge Ge Ge Ge Ge Ge Ge Ge Se oe SH SH SF Se Se FHSS Se Se SH Se SHS Se Se Se Se Se Se Sete Se esas 


none 
89 
is Side effects: 
9 The Label symbol table contains only its listhead entry and all 
9 labels are now in the user-defined symbol table. The current symbol 
Be table pointer, PATSGL_SYMTBPTR, is reset to the user-defined symbol table. 
' 
38 ben 
98 
99 BEGIN 
400 
401 MAP 
$3 SYM_LISTHEAD : REF VECTORC,LONG); ! Pointer to Listhead entry of label table 
04 LOCAL 
405 STRING_DESC : BLOCK(8,BYTE), ! String descriptor for current symbol 
406 SYMBOL _PTR, ' Pointer to symbol entry in user-defined ta 
40 NEXT PTR, : Pointer to next label entry 
ope POINTER; 


vuvuv 
ee ee ee ee ee ee ee 


< 
WN = CS OONOULS WN" OOOVNOUSWwN—O Ss 
ROPOPONONOPOPONPONUD) 4 9 


Foy or ot ot ot ot ot at ot at at area 


44 
58 


4G 
6F 


SOOOGDOOOOOS 0000000 OO O00 000909 00 0909 09 09 09 SI NIN INI NINO OO 

DONANE WN SO DOONAN EWN 0 OD NOU EWN OC OONOU SWI O00 

IWIN ENE EEE EEL EPPA PEPE PEEP PEE PUP WN nonn 
J 


ro 
-—IO Om 


Nf MTS 
Nu 


= .PATSGL_SYMHEAD: 
ISTHEADCOJ)) NEQA .SYM_LISTHEAD(O] 


= ,DLL_RLINK(.POINTER); 
K(.NEXT-PTR) = GL -LLINK (POINTER; 

K(.SYM isTHEapt = .DLL_RLINK(. POINTER); 
ESCLDSC$W_LENGTH) = + SYM_CRCOUNT (POINTER) 
ESCLDSCSA-POINTER] = SYM~ STRING( POINTER) #1; 
TR = PATSFIND SYM(STRING DESC); 

OL_PTR EQLA 0) 
BEGIN 

le¢ 


DLL_RLINK(.POINTER) = 0; 
DLL“LLINK 
INSQUE(.PO 
SFAO_TT_OUT( "symbol ‘"!AD as !XL' 

_D LENGTH 
“STRING DESCLDSCSA_POINTER]), 
“oe LUE(.POINTER)); 


BEGIN 
44 


i This is a redefinition of a user symbol. Alter the value 
! in the user-defined symbol table and then release the 
label entry to the free storage List. 


OF ADFT Curt brepel ""AD'' redefined from !X 
~STRING DESCCDSC$W_LENGTH], CHSPTR( 
“SYM _VACUE(.SYMBOL~PTR), -SYM_VALUE 
SYM_VALUE(.SYMBOL_PTR) = .SYM VALUE(.POINTE 
PATSFREERELEASE(.POINTER, ((.STRING_DESCLDS 

4 +"OVERHEA 


SooOwe- fr 


-PSECT _PATSPLIT,NOWRT ,NOEXE ,0 


0043 P.AAC: .BYTE 27 
44 ASCII \symbol ‘!AD'' defined as !XL\ 


3 
a P.AAD: .BYTE 
60 ASCII 


an 


79 


1 
$e 6D 8 
65 6€ 69 é8 38 
6¢ 6D 79 § \symbol ‘!AD'’ redefined from !XL to !XL\ 
6 $6 64 
6F 74 4C 


om 


5 
1§-se0-1964 99 Fee eee neAAS Pens CURE en Sacapatsym.ase—%® 


&. 


PATSYM -Sep-1984 VAX-11 Bliss-32 V4.0-742 ge 
v04=000 18-8 Sep- 1382 99: 38: % DISKSVMSMASTER: CPATCH. SRCJPATSYM.B32; A (bs 
-PSECT _PATSCODE,NOWRT,2 
o03¢ .ENTRY PATSADD_LABELS, Save R2,R3,R4,R5 31111 
55 000000006 FF ° HOVAR PATSE AO. “Out, R5 : 
000000006 EF 000000906 EF p ¢ es HOVE PALSGL syMMEAD, PATSGL_SYMTBPTR : 1 
; 6 D 1B MOVL (RO); OINT ; 
D 1 CMPL = POINTER, ; 
6 1 BEQL 46s 3$ : 
54 D MOVL (POINTER), NEXT_PTR $11 
04 Ab 04 Ad D 6 MOVL 4(POINTERS, 4(NEXT_PTR) : 11 
60 6 p B MOVL (POINTER), (RO) : 11 
6E C Ao 9B MOV7BW V@CPOINTER) STRING_DESC : 11 
04 AE D Ad 9E OVAB 13(R2), STRING_DESC#4 : 11 
SE DD 0 PUSHL SP : 11 
92 AF gi FB 00039 CALLS #1, PATSFIND SYM : 
53 0 D 0 OVL RO. SYMBOL_PTR : 
1— 1 4 BNEG 2 : 11 
62 7C 0004 CLRQ (POINTER) : 11 
000000006 FF 62 OE 0 4 INSQUE (POINTER), @PATS$GL_SYMHEAD : 11 
Ae DD 00048 PUSHL 8 (POINTERS : 11 
AE bp 004E PUSHL  STRING_DESC+4 ; 
7E AE 3¢ 0051 MOVZ2WL STRING-DESC, -(SP) F 
00000000' FF 5F 053 PUSHAB P.AAC ; 
65 4 FB 00058 CALLS #4, PATS$FAQ_OUT ; 
B7 11 0005 BRB 1$ : 117 
8 A2 DD 00060 2s: PUSHL 8 (POINTER) + 120 
8 AS DD 0006 PUSHL 8(SYMBOL_PTR) : 
te bd 00066 PUSHL  STRING_DESC+4 : 
7E O¢ AE 3C 00069 MOVZWL STRING-DESC, -(SP) ; 
00000000" EF 9F 9060 PUSHAB P.AAD F 
65 5 FB 00 CALLS #5, PATSFAO ou UT ; 
08 As 08 A2 : 0076 MOVL § 8(POINTER), 8(SYMBOL_PTR) : 12 
50 E ¢ 078 MOVZWL STRING_DESC, RO :1 
50 4 CO 0007E ADD a, RO : 
50 04 (6 00 1 DIVL2 #4. R ; 
03 AO SF 000 PUSHAB 3(RO) F 
52 DD 00087 PUSHL POINTER ; 
000000006 EF 0 Fe 90 9 CALLS H , PATSFREERELEASE gos 
04 $095 3$: RET : 1209 


; Routine Size: 147 bytes. Routine Base: _PATSCODE + OO0ED 


PATSYM bse Sep-1984 VAX-11 Bliss-32 V4.0-74 p 7 
v04-000 racer a Re 8: e8 8s Pee WOAlSteRccBAE CH Skcaparsym.as2rt@” «hs 
3; 4 1210 1 END 

; ret 1211 0 ELUDOM 

; PSECT SUMMARY 

; Name Bytes Attributes 

: _PATSCODE ; 4 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON. NOP IC. ALIGN(2) 

> “PATSPLIT 4 NOVEC.NOWRT, RD VNOEXE.NOSHR, LCL. REL. CON.NOPIC.ALIGN(O) 

: Library Statistics 

ie Rees a be eee Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBILIB.L32;1 18619 6 0 1000 00:01.8 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /VARIANT:1/LIS=LIS$:PATSYM/OBJ=OBJ$:PATSYM MSRC$:PATSYM/UPDATE=(ENH$:PATSYM) 


; Size: RS + 134 data bytes 


Elapsed Tine: 


Lines/CPU Me $8 
Lenenes/CPU-Rin: 3° 5 

Memor 78 Used: 3 pages 
Compilation mi. J 
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